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-- Display. mesa, Edited by Sandman, May 12, 1978 2:13 PM 

DIRECTORY 

RectangleDefs: FROM "rectangledefs" USING [ 

BMHandle, BMptr, ClearBoxInRectangle, ComputeCharWidth , CreateRectangle, 
GetDefauUBitmap, GetDef auUFont, GrayArray, GrayPtr, loftmargin, 
RectangleError, Rptr, ScrollBoxInRectangle, WriteRectangleChar], 
StreamDefs: FROM "streamdefs" USING [ 

DisplayHandle, DSOptions, StreamError, StreamHandle, StreamObject] , 
SystemDefs: FROM "systemdefs" USING [AllocateHeapNode, FreeHeapNode]; 

DEFINITIONS FROM StreamDefs, RectangleDefs; 

Display: PROGRAM 

IMPORTS RectangleDefs. StreamDefs, SystemDefs EXPORTS StreamDefs SHARES StreamDefs 
BEGIN 

-- CHARACTER constants 
NUL: CHARACTER - OC; 
TAB: CHARACTER " IIC; 
CR: CHARACTER « 15C; 
Backspace: CHARACTER ■ IOC; 
ControlA: CHARACTER ■ IC; 
Space: CHARACTER » 40C; 
MaxCharCode: CHARACTER ■ 377C; 

-- GLOBAL PUBLIC Data 

defaultdisplaystream: PUBLIC DisplayHandle ♦- NIL; 
displaystreams: DisplayHandle ^ NIL; 

-- Mesa Display Stream Routines 

CreateDisplayStream: PUBLIC PROCEDURE [rectangle: Rptr] RETURNS[DisplayHandle] ■ 
BEGIN 

ds: DisplayHandle; 

-- now create stream structure and init it 

ds *- SystemDefs. AnocateHeapNode[SIZE[Display StreamObject]]; 
dst <- StreamObject[ResetDisplayStream, GetNOP, PutbackNOP, WriteDisplayChar, 

EndofNOP, DestroyDisplayStream, Display[ ,,,,,,., ,]]; 
ds. rectangle <- rectangle; 

[ds.pfont, ds.l ineheight] ♦- GetDefaultFont[]; 
ds. options ^ DSOptions[FALSE, FALSE, FALSE. FALSE]; 
-- link into list of display streams 
ds.link ♦- displaystreams; 
displaystreams ♦- ds; 

-- set options in rectangle to tell about overflow(s) 
rectangle. options. NoteOverf low ^ TRUE; 
-- and set line to Zero 
SetDisplayLine[ds, 0, leftmargin]; 
RETURN[ds] 
END; 

DestroyDisplayStream: PROCEDURE [stream: StreamHandle] " 
BEGIN 

-■- define locals 
prev: DisplayHandle; 
WITH ds:stream SELECT FROM 
Display => 
BEGIN 

-- delink from list of display streams 
IF 0ds " displaystreams THEN displaystreams ^ ds.link 
ELSE 
BEGIN 

prev ^ displaystreams; 
UNTIL @ds » prev. link DO 
IF prev » NIL THEN ERROR; 
prev ^ prev. link; 
ENDLOOP; 
prev. 1 ink ♦- ds. 1 ink 
END; 
-- now free all storage 
SystemDefs . FreeHeapNode[0ds] ; 
END; 
ENDCASE »> ERROR StreamError[stream. StreamType]; 
END; 
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GetDefauUDisplayStream: PUBLIC PROCEDURE RETURNS[DisplayHancne]- 
BEGIN 

RETURN[defaundi splay stream]; 
END; 

GetDisplayStreamList: PUBLIC PROCEDURE RETURNS[DisplayHancne]- 
BEGIN 

RETURN[clisp1aystreams]; 
END; 

-- Text Output and Support Routines 

WriteDisplayChar: PUBLIC PROCEDURE [stream: StreamHandle, char: UNSPECIFIED] ■ 
BEGIN 

WITH ds:stream SELECT FROM 
Display ■> 

BEGIN -- paste a character on the screen 
SELECT char FROM 
IB. 
lOB. 

> 377B ■> RETURN; 

< 40B "> ScrollDisplay[0ds, char]; 
ENDCASE ■> 

[ds.charx, ds. chary] <- WriteRectangleChar[ 

ds. rectangle, ds.charx. ds. chary, char, ds.pfont 
1 RectangleError ■> 
SELECT error FROM 

BottomOverflow, RightOverf low ■> 
BEGIN 

Scrol lDisplay[@ds , char]; 
CONTINUE; 
END; 
ENDCASE]; 
END; 
ENDCASE "> ERROR StreamError[stream, StreamType]; 
END; 

ClearCurrentLine: PUBLIC PROCEDURE [stream: StreamHandle]- 
BEGIN 
WITH ds:stream SELECT FROM 

Display «> ClearDisplayLine[@ds, ds.line]; 

ENDCASE «> ERROR StreamError[stream. StreamType] ; 
END; 

ClearDisplayLine: PUBLIC PROCEDURE [stream: StreamHandle, line: CARDINAL] ■ 
BEGIN 

clearwords: GrayArray ^ [0, 0, 0, 0]; 
clear: GrayPtr « 0clearwords; 
ds: DisplayHandle; 
rectangle: Rptr; 
lineheight: CARDINAL; 
WITH s: stream SELECT FROM 

Display «> ds ^ 0s ; 

ENDCASE «> ERROR StreamError[stream, StreamType] ; 
rectangle*- ds. rectangle; 
lineheight<- ds. 1 ineheight; 

IF line > rectangle. ch/1 ineheight THEN RETURN; 

ClearBoxInRectangle[rectangle, 1, rectangle. cw-2, 1 ineheight*l ine, lineheight. clear]; 
-- reset line position to left margin 
SetDisplayLine[ds, line, leftmargin]; 
END; 

ClearDisplayChar: PUBLIC PROCEDURE [stream: StreamHandle. char: CHARACTER] - 

-- Assumptions: 

-- erases last character written, iff position not changed 

BEGIN 
-- define and setup locals 

cwidth: CARDINAL; 

ds: DisplayHandle; 

rectangle: Rptr; 

clearwords: GrayArray ^ [0, 0, 0, 0]; 

clear: GrayPtr ■ ©clearwords; 

WITH s: stream SELECT FROM 
Display «> ds ^ 0s; 
ENDCASE "> ERROR StreamError[stream, StreamType] ; 
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rectangle ♦- ds. rectangle; 
SELECT char FROM 

NUL, CR, >MaxCharCode ■> RETURN; 
ControlA, Backspace ■> NULL; 
TAB ■> 

BEGIN OPEN ds; 

IF TABindex > THEN 

BEGIN TABindex ^ TABindex-1; charx +■ TABsCTABindex] END; 
put[ds, Backspace]; 
RETURN 
END; 
< Space ■> 
BEGIN 
ClearDisp1ayChar[ds. 

LOOPHOLE[LOOPHOLE[char,INTEGER]+100B, CHARACTER]]; 
char ^ 't; 
END; 
ENDCASE -> NULL; 
-- now backup convert stuff and compute left word 
cwidth ^ ComputeCharWidth[char, ds.pfont]; 
ds.put[ds, Backspace]; 

ds. charx ^ MAX[lef tmargin, LOOPHOLE[ds.charx-cwidth, INTEGER]]; 
-- now clear it 
ClearBoxInRectangle[ 

rectangle, ds. charx, cwidth, ds. chary, ds.lineheight, clear]; 
END; 

SetDisplayLine: PUBLIC PROCEDURE [ds: DisplayHandle, line, pos: CARDINAL] - 
BEGIN 

lineheight: CARDINAL ■ ds.lineheight; 

-- make sure line no. is in range and set character x and y 
line ^ MIN[line. LOOPHOLE[(ds. rectangle. ch/1 ineheight)-!, CARDINAL]]; 
ds. charx ♦- pos; ds. TABindex ^ 0; 
ds. chary *- 1 ine*l ineheight; 
ds.l ine ^ line; 
END; 

ScrollDjisplay: PUBLIC PROCEDURE [ds: DisplayHandle, char: UNSPECIFIED] - 
BEGIN 

newx, tw: CARDINAL; -- for TABs 
lastline: CARDINAL; 
lineheight: CARDINAL - ds.lineheight; 
blockheight: CARDINAL; 
rectangle: Rptr - ds .rectangle; 
mapaddr: BMptr « rectangle. bitmap. addr; 
wordsperl ine: INTEGER - rectangle. bitmap. wordsperl ine; 
SELECT char FROM 

15B «> NULL; -- <Carriage Return> 
0, 12B -> RETURN; -- null character 
IIB «> -- TAB 
BEGIN 

ds.TABs[ds. TABindex] ♦- ds. charx; 
ds. TABindex *- ds. TABindex + 1; 
tw <- ComputeCharWidth[' .ds.pfont] * 8; 

newx ^ (LOOPHOLE[ds.charx-leftmargin, CARDINAL]/tw+l)*tw+leftmargin; 
IF newx < rectangle. cw THEN BEGIN ds. charx <- newx; RETURN END; 
IF tw >■ rectangle. cw THEN char <- ' ; 
END; 
ENDCASE -> 
BEGIN 

IF ds. options. StopRight THEN RETURN; 
IF char < 40B THEN 
BEGIN 

WriteDisplayChar[ds, 't]; 
WriteDisplayChar[ds, char+lOOB]; 
RETURN; 
END; 
END; 
-- check if at bottom of window 
lastline *- ((rectangle. ch-l)/l ineheight)-!; 
IF ds.line ■ lastline THEN 
BEGIN 

-- if he wants to be notified at the bottom, do it 
IF ds. options. NoteScroll ing THEN SIGNAL StreamError[ds , StreamEnd]; 
IF ds. options. StopBottom THEN RETURN; 
-- scroll the box containing the text 
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blockhelght ♦- rectangle. ch-lineheight-l; 

ScrollBoxInRectanglefrectangle. 0» rectangle. cw, Uneheight, 
blockheight, linehelght]; 

-- now clear the last line 

ClearDisplayLine[ds, ds.line]; 

END 
ELSE 

BEGIN 

-- assumes next window line is cleared 

ds. line ♦- ds.l ine+1; 

SetDisplayLine[ds, ds.line, leftmargin]; 

IF ds. options. NoteLineBreak THEN SIGNAL StreamError[ds , StreamPosition] ; 

END; 
-- now write the char 

IF char NOT- 15B THEN WriteDisplayChar[ds. char]; 
END; 

- NOP routines 

ResetDisplayStream: PROCEDURE [stream: StreamHandle]- 
BEGIN 
RETURN; 
END; 

GetNOP: PROCEDURE [stream: StreamHandle] RETURNS [UNSPECIFIED] - 
BEGIN 
RETURN[0]; 
END; 

PutbackNOP: PROCEDURE [stream: StreamHandle. char: UNSPECIFIED] ■ 
BEGIN 
RETURN; 
END; 

EndofNOP: PROCEDURE [stream: StreamHandle] RETURNS [BOOLEAN] ■ 
BEGIN 

RETURN[FALSE]; 
END; 

- Alto Display Window Initialization Routine 

initdisplaystreams: PROCEDURE ■ 
BEGIN 

mapdata: BMHandle « GetDefaul tBitmap[]; 
defaul tdisplaystream ^ CreateDisplayStream[ 

CreateRectangle[mapdata, 0, mapdata. width. 0, mapdata. height]]; 
END; 

- MAIN BODY CODE 
initdisplaystreams[]; 
END. of Display 



